function [X_estr2, X_estr2_test] = getSFSPCABB(f,fs, Xe, De, Xt, indice_entrenamiento,indice_prueba, m,fi)

try
    %Obtenemos SFS de con 100
    [XSFS2,SELEC2] = sfs(fs,De,60,1);
    XT2= Xe(:, SELEC2);
    XT2_test = Xt(:, SELEC2);
    %Obtenemos PCA para la 100 caractristicas. estos datos no entran normalizados por eso se ingresa f
    XPCA2 = bpca(f,40);
    XPCA2 =  normalize(XPCA2, 1);
    XT3= XPCA2(indice_entrenamiento,:);
    XT3_test= XPCA2(indice_prueba, :);
    %JUNTAMOS LOS DOS BB DE LA ESTRATEGIA 2 PARA TENER LAS CARACTER�STICAS DESEADAS
    XT4 = [XT2 XT3];
    XT4_test = [XT2_test XT3_test];
    A = dataset(XT4,De);
    W = featselo(A,'NN',m);
    B = A*W;
    b = struct(B);
    X_estr2= XT4(:,b.featlab);
    X_estr2_test = XT4_test(:,b.featlab);


catch me9
    fprintf(fi, 'ERROR estrategia 2 %d %s \n',m  ,me9.message );
end

end
